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LABEL OO000Q0000PRINTER00175122CC EX OBJECT/KEYWORDSFILE SOURCEFILE=SYMBOL/TSSMCPSENDe OBJECT /KEYWORD A 


Hee see RS ice etelte ay itaunaatin ches ecu kia r ina Se aiaiaeaiemens a 


ho! 

= 

ing 
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SAVE REAL PROCEDURE GETSPACEC(SIZEs TYPE» SAVEF)3 00014000 
SAVE REAL PROCEDURE WAITIOCIODsMASKeU) 33 00018000 
PROCEDURE FRROREIXERCTYPE)$ VALUE TYPES REAL TYPES FORWARD? 00019500 
SAVE PROCEDURE SLEEPCADDRESS*MASK)3% 00020000 
SAVE PROCEDURE MCPINCS)$ VALUE Ss REAL SSFORWARD: 00024500 
SAVE PROCENURE LOGTIMINGCMy]XsB)3 VALUE MIXeBs REAL MyXeBS FORWARDS 00025000 
SAVE PROCEDURE ESPBITS COMMENT PRESENCE BIT ROUTINE FOR ESP SEGMENTS 3% 00025900 

STREAM PROCEDURE MOVECN) "WORDS FROM" (HERE "TOMC( THERE DSS 00082000 

PROCEDURE STOPM3 FORWARDS 00089400 
PROCEDURE SETMONITORFILECSTOPI3 VALUE STOPS REAL STOPS FORWARD? 00089510 
PROCEDURE GETMONITOROWS FORWARDS 00089520 
PROCEDURE LOGDYSKs FORWARD? 00089530 
PROCEDURE LINEMESSAGES(BUFF)3 VALUE BUFFS REAL BUFFS FORWARDS 00089540 
PROCEDURE WHATSGOINGONCBUFF)s VALUE BUFFS REAL BUFFS FORWARD? 00089550 
PROCEDURE CHANGEINTRINSICFILECBUFF)# VALUE BUFFS REAL BUFFS FORWARDS 00089560 
PROCEDURE CHANGEMCPCBUFF)3 VALUE BUFF? REAL BUFFS FORWARD? 00089570 
BROCEDURE PRINTDIRECTORYCBUFF)S VALVE BUFFS REAL BUFFS FORWARDS 00089590 
PROCEDURE MIXPRINTCBUFF)$ VALUE BUFFS REAL BUFFS FORWARD} 00089600 

SAVE PROCEDURE FORGETSPACE(LOC)3& 00090000 
SAVE PROCEDURE LOGTIMINGCMIXe8)3 VALUE MIXsBs REAL MIXBi 00165050 

REQUESTED ADDRESS 7S UNLOCKEDs THE PROCEDURE FINDFREEADDRESS 00296380 
SAVE REAL PROCEDURE TWOCN)3 VALUE NS INTEGER NB 00306000 
PROCEDURE FORGETUSERDISKCArLIIVALUE AaLSREAL ApL FS FORWARDS 00316000 
REAL PROCEDURE PETUSERD]SK(NeTISVALUE Ne TEREAL Neo TRF ORWARD 3 00316400 
PROCEDURE DTS FORWARD; 00317000 
REAL PROCENURE EXPs$ FORWARD 00317010 
PROCEDURE SCHEDIOCNUMsTYPEs ADR) 3 00318110 
PROCEDURE SCHEDIDLECADR)$ VALUE ADR3 REAL ADK FORWARD; 00318140 
PROCEDURE USERDISKSPECTALCASECQsReUsJIIVALUE Qo JIREAL QeRo ui 003361400 
PROCEDURE FORGETESPD1SK¢ SEG) 3 VALUE SEGIREAL SEGS FORWARD? 00364000 

SAVE INTEGER PROCEDURE DISKSPACECNWORUSoP{MIXeAUX)3 00365000 

PROCEDURE STATUS#2 00369000 

PROCEDURE INTERRUPTCTYPE)3 VALUE TYPES REAL TYPES FORWARDS 00370500 
REAL PROCEDURE FINDOUTPUTCMIDeFIDe TYPE oFORMS eREEL se CDATE eCYCLE oKIND) 3% 00371000 
REAL PROCEDURE FINDINPUT(MIDeFIDesREEL® COATES CYCLE COBOL sULe OF eMODE®FN)S 00374000 
PROCEDURE STARTIMINGCFN,U)3 VALUE FNeUS REAL FNeUS FORWARD?S 00377000 

PROCEDURE FILEOPENCXsA)$ VALUE XeA3 [NTEGER Xe A} FORWARDS %R9000379000 
PROCEDURE ENTERSYSMTRCN)S VALUE N# REAL NS FORWARDS 00379040 

SAVE PROCEDURE SAVEOPEN(A)} VALUE AS REAL AS %R9000379100 
PROCEDURE SETNOTINUSECU,RWL)$ VALUE UseRWLs REAL UsRwLs FORWARD; 00360000 
PROCEDURE FILLBUFFERS( CURRENT se FINAL» COBOLeNR)S 00385000 

PROCEDURE REALFILECLOSECA)% VALUE A$ REAL AS FORWARDS %R9000389000 

SAVE PROCEDURE FILECLOSECA)S VALUE A# REAL AB %R9000389400 
REAL PROCEDURE DISKADDRESS(MIDeFIDeFPB3eAeHe JO)3 % ¢(SHM)00390000 
PROCEDURE BLASTQ(U)$ VALUE US REAL US FORWARD? 00392000 
REAL PROCEDURE FILEHEADERCMIDeFIDeNROWS» SIZE se BLENe RLEND SIS 00393000 
PROCEDURE PURGFYTCU)) VALUE US INTEGER Us FORWARDIS 00397000 

DIRECTORYSEARCH, NSECONDe AND CLEANOUT ARE THE PROCEDURES 00418970 
PROCEDURE LOCKERCSEGMENT)3 00422500 
PROCEDURE SELECTRUNCF IS VALUF FS REAL FS FORWARDS 00426900 
PROCEDURE CONTROLCARDCA)S VALUE ATREAL AS FORWARDS 00427000 
KEAL PROCEDURE ODTRECTORYSEARCHC A, Be CISVALUE As Be CFS 00428000 
PROCEDURE NEXTDCLOF FORWARDS 00429400 

PROCEDURE ARTNCA»N)2 VAILUE AsNé ARRAY AC *J3 INTEGER N3 FORWARDS 00431000 

SAVE PROCEDURE DISKWAIT(COREsSIZEsDISK)3 00431100 

PROCEDURE MAKEPRESENTCA)$ VALUE AS REAL AS FORWARDS 00431500 

SAVE PROCEDURE DISKIOCL»CeSsD)3 VALUE CeSeD3 REAL LE INTEGER CoSeD3% 00432000 
*PROCEDURE SPOUTITCMESSAGE,TYPE)3 00450300 
PROCEDURE SPOUTER( MESSAGE »UNI TNOs TYPE) 3 00451800 
PROCEDURE FILEMESSAGEC] sKeMoFeRoDeCe TYPE 23 00452600 


PROCEDURE LBMESSCFNsSNeTisT2eEoUNTTNOOX)3 
PROCEDURE. TERMINATECMIX)3 VALUE MIX3 REAL MIXs FORWARD 
SAVE PROCFNOURE TERMINALMESSAGECN)$ VALUE N? REAL N3 FORWARD3 
BOOLEAN PROCEDURE SYSTEMFILECAsB)FVALUE AsBsS REAL AoBS FORWARD: 


PROCEDURE ENTERSYSFILECN)$ VALUE Ni 


PROCEDURE COM53 
PROCEDURE FILLSY 
PROCEDURE SAVEST 
PROCEDURE ASRS 
PROCEDURE COM11 
PROCEDURE COM13 


FORWARD32 
STAT FORWARD} 
ATISTICS3S FORWARDS 
FORWARDS 
3 FORWARD:% 
3 FORWARDIS 


REAL N3 FORWARDS 


PROCEDURE COMMUNJCATEOS FORWARDS 
PROCEDURE COMMUN]CATE1’ FORWARDS 
PROCEDURE LIBRARYLOAD? FORWARDS 
PROCEDURE LIBRARYZEROS FORWARD; 
PROCEDURE LIBRARYDUMPS FORWARDS 
PROCEDURE DUMPCORE(B)# VALUE BS REAL BS FORWARDS 


PROCEDURE COM19 
PROCEDURE COM23 
_..PROCEDURE JNTRIN 
PROCEDURE MESSAG 
SAVE PROCEDURE R 


$3 FORWARD3S 

$b FORWARDIS 
SICTABLEBUILDERCFH)? 
ETABLEBUYJLDERS FORWARDS 
ESULT3 


SAVE PROCEDURE PUNTCIT)3 VALUE [3 REAL 13 


PROCEDURE CREAT 
SAVE PROCEDURE P 


ELOGCDDD)3 
AUSECR)$ VALUE Ré 


VALUE DDD 


ARRAY DDD([*]3 


REAL Ri 


FORWARD? 


SAVE PROCEDURE CHECKLINKSCMYXeLOC)3 VALUE MIXeLOCS REAL MIXsLOC3 


SAVE PROCEDURE SWAPCSTATE,B23 VALUE STATEsBE REAL STATE*BE FORWARDI 


PROCEDURE SHORTC 


OMMUNICATESS FORWARD 


PROCEDURE INITIALSWAPCN)? VALUE NS REAL NS FORWARDS 


PROCEDURE BRINGBACK(MI[X)3 


PROCEDURE REENTERCSTUFF)S VALUE STUFFS 


VALUE MIX3 


REAL MIX3 FORWARDS 


REAL STUFF3 


FORWARD3 


PROCEDURE SWAPPERE 


FORWARD3 


BOOLEAN PROCEDURE OUTWAIT(B)% BOOLEAN BS FORWARD 


SAVE REAL PROCE 


SAVE INTEGER PR 
SAVE PROCEDURE L 
SAVE PROCEDURE 
SAVE PROCEDURE 
SAVE PROCEDURE 
SAVE PROCEDURE 
SAVE PROCEDURE 
SAVE PROCEDURE 
SAVE PROCEDURE 


DURE GETAREACN)3 VALUE 
OCEDURE SPACECND} 

INKEU3 FORWARD3 
FORKCROUTINE» PARAMETER: 
KILLOSTACK)3 
SLEEPCADDRESS» MASK)3 
COMPLEXSLEFPC(CODE)3 
RUNCMIX)3 
SAVEMIXCMTX»sLOGLINE): 
HALT} 


Ns REAL NB 


PRIORITY» 


SAVE PROCEDURE ENTERLINEGCADR»LINEsPRIRTY)3 


PROCEDURE NCWRITECADReLY 


NEsSTZED3 


BOOLEAN PROCEDURE BLASTREADCLINE®C)3 


SAVE PROCEDURE 


PROCEDURE NOTIFYCANDE (MY 


PROCEDURE SYSDISKIOCTO»L,A’ VALUE [QebeA3 


SAVE PROCEDURE NEw] O3 


SAVE PROCENURE STARTIOCU 


FORWARD3 


X)3 VALUE MIX; 


23 VALUE U3: 


SAVE PROCEDURE INITJATEDCLOCTODESC.5)3 


PROCEDURE NFXTDC]O$ 


SAVE PROCEDURE ENTEREADYQCT)3 
PROCEDURE USAS]TAPECAREAs TYPE sFROMsUsDIRII 


INTEGER PROCEDURE AUXTL 


TARYSPACECSIZE)3 


REAL MYX3 


KeAL us 


TORFQUFSTCFINAL® LODFSCsLOCATION)3 
PROCEDURE OLDWIERDHAROLDS 


FORWARD} 


PROCEDURE FORGETAUXILIARYSPACECSIZE»LOC)S 


PROCEDURE FILLORKILLCA» 


START» SI[Zt> 


TYPE)3 


SIZE» 


FORWARD} 
SAVE PROCEDURE FORGETAREACNA)S VALUE Ne AS KEAL Ne A’ FORWARDS 


LOCATION)$ 


FORWARD} 
ARRAY AC*#]#REAL [OoLI 


FORWARD: 


ZRHR 


00454000 
00463100 
00463200 
00463300 
00464000 
00469000 
00469100 
00469200 
00474000 
00475000 
00477000 
00478000 
00478500 
00479000 
00479500 
00480000 
004860100 
00483000 
00487000 
004890900 
00494000 
00646000 
00650000 
00750000 
00601000 
00803000 
00990000 
00990504 
009971000 
00992000 
009921300 


00992200 


00993000 
00994000 
00994500 
00995000 
00998500 
01070000 
01089000 
01099000 
01123000 
01127000 
011438000 
91150000 
01163100 
01163350 
01163410 
01163500 
01164000 
04164200 
%¥RO001164300 
01164500 
01165000 
904166000 
014190000 
01223000 
01250100 
01267000 
01271000 
94275000 


i 
\ 

i 

4 


PROCEDURE REPORTBACKCWHYsP10P2)3 
PROCEDURE MAKELOG(MsT)3 VALUE MeT3 REAL MsT# FORWARD? 
REAL PROCENURFE KEYINCB)$ VALUE B3 BOOLEAN BS FORWARDS 


BOOLEAN PROCEDURE WHYSLEEPCMASK)3 VALUE MASKS REAL MASK; FORWARD?2 


BOOLEAN PROCEDURE OLAYCLOC»MIXX)3 


PROCEDURE SEEKNAM(AsBoCsDeFsN)$ VALUE AsBEREAL ArBoCoDekeN3 FORWARD; 


PROCEDURE UNHOGQUE(MIX)33% 
REAL PROCEOURE GETESPDISKSFORWARDIZ 

PROCEDURE pn {RECTORYBUILDER(AsDDD)3 
PROCEDURE TWXOUT(ArBeCeD)3 VALUE AsBeCeD} REAL AsBeCeD3 FORWARDS 
PROCEDURE MESSAGEWRITER? 
PROCEDURE SPOUTITCMESSAGEsTYPE)3 
PROCEDURE SPOUTER(MESSAGE sUNT TNOp TYPED 3 

PROCEDURE ENDOFDECK(R)$ VALUE RS REAL R3 FORWARDS 
PROCEDURE PB10¢A,B)3 VALUE A$ REAL AaB FORWARDS 

PROCEDURE TERMINATECMIX)3 VALUE MIX3 REAL MIX38 

REAL PROCEDURE PLACEFINDER(Ss#AsLJ3 

PROCEDURE STOPCANDY3 FORWARDS 

PROCEDURE TERMINALMESSAGACN)$ VALUE NS REAL NG 

SAVE PROCEDURE TERMINALMESSAGECN)$ VALUE N3 REAL NB 

BOOLEAN PROCEDURE READEMFROMDISK(HeIB)3 
PROCEDURE NDRAINOCUN] T»BUMP,FRROR)? 

REAL STREAM PROCEDURE UNYTINCTINUsWHAT)S VALUE WHATSS 
REAL PROCEDURE EUFCAsBol.)3 VALUE A,BsLs REAL ApB,Ls FORWARDS 
INTEGER PROCEDURE CALCULATEPURGE (PURGE) 3% 
PROCEDURE CHANGEDATE(BUFF)$ VALUE BUFFS REAL BUFFS FORWARD? 
REAL PROCEDURE TAPELABEL(MoF eRsCeoP)3 VALUE MoFoReCoP3 
PROCEOURE PRINTCORE(X)3 VALUE X3 REAL X3 
PROCEDURE DUMPCORECBUFF )3 

PROCEDURE NAMFID(ArKTR)3% 
REAL PROCEDURE TAPELABEL(CMULF ID» FID» REELNOsCYCLE » PURGE) FX 
REAL PROCEDUR 1CLBL)2 VALUE LBLZREAL LBL 
PROCEDURE NSECONDIFORWARDIS 
BOOLEAN PROCEDURE SYSTEMFILE (A+B) VALUE ApB3REAL A,BS FORWARD} 
REAL PROCEDURE PUTORTAKECMIX» WHERE» ]OeWHAT)$ 

PROCEDURE NIRFCTORYFULLCPASSBY)$ VALUE PASSBY$ REAL PASSBY} 

PROCEDURE DCERR(R)3 

_ PROCEDURE DCBUSYCV); 

PROCEDURE MOREAREAS3 

SAVE PROCEDURE FORGETAREACN»T)3 VALUE NeT$S REAL NoT3 

SAVE REAL PROCEDURE GETAREAC(N)$ VALUE N# REAL NS 

SAVE PROCEDURE QUEVENT(T»MyX)3 

PROCEDURE COMM13 % DISK 1/0 COMMUNICATE 

PROCEDURE COMM23 % COMMAND LANGUAGE WAIT COMMUNICATE 
PROCEDURE LOGOUT? FORWARD3 

REAL PROCEDURE [NPUTSCAN(MODE sSOURCE DEST» NUM*FLAGS)3 

REAL PROCEDURE OUTKAN9BOCADReNUMe TYPE eLCC,B)? 

PROCEDURE GIVEAWAYCA)$ VALUE A’ REAL A3 FORWARDS 

REAL PROCEDURE OUTRKANBIDSCADR»NUM, TYPE» ByC)3 
REAL PROCEDURE OUTRANTCCADR»NUMp TYPES B,C)3 
PROCEDURE RUNSEPTIC(BUFF)3 VALUE BUFF3 REAL BUFFS 
PROCEDURE MAKEPRESENTCA)$ VALUE AS REAL AS FORWARD 
PROCEDURE COMM93 

PROCEDURE REPORTBACKCWHYsP1.P2)3 
PROCEDURE TWXOUTCADR»NUMs TYPE eLL)3 

PROCEDURE CLEARTANK(LLeMCP)} 
REAL PROCENURE DCWRITECADRoLINE eSIZE)3 


PROCEDURE SPOSET¢TYPEsBUFH)# VALUE TYPE,BUFHS REAL TYPEsBUFHS FORWARDS 


PROCEDURE QUITTERCLINED3 


FORWARDS 
SAVE PROCEDURE DISPUSALCLeTeR)# VALUE LefokKs REAL LofteRi FORWARDS 


02016000 
02020000 
02021000 
02022000 
02052500 
02052700 
92053000 
92111000 
02112000 
02113200 
02114000 
92132000 
02132300 
02177100 
02178500 
02180000 
02187100 
02187600 
02188000 
02330100 
02347150 
02347200 
02348000 
02379000 
02380000 
92393100 


%A102393400 
210302394000 
2A102434100 


02603000 
02635000 
026590006 
02692000 
02692500 
02700000 
02722000 
02740000 
02761000 
03002000 
03015000 
03029000 
03048000 
03053000 
03061000 
03070000 
03071000 
03075000 
03079000 
03080000 
03080200 
03081000 
03081100 
03099000 
03100000 
03111000 
03124000 
03200000 
03214000 
03245900 
03246000 


PROCEDURE DCWAITCADRo LINE se Re MASK sCLCK) 3 
REAL PROCEDURE JNPUTSCANCMODE + SOURCE se DEST sNUMe FLAGS) 3 
PROCEDURE COMM133 
PROCEDURE COMMS? 
PROCEDURE ENTERLINEQ@CADRe LINE ePRIRTY)3 
PROCEDURE NAKQUE3 
PROCEDURE NCTIMEUUTCR)$ VALUE R3 REAL R3 
PROCEDURE NOTIFYCANDES 
PROCEDURE PAPERTAPELTOCR STAs FLAGS sBUFSZoMI)s B&B HANDLES END OF MESSAGE 
PROCEDURE HELLOCK)3 
PROCEDURE OLDWIERDHAROLDS 
SAVE PROCEDURE GIVEAWAYCA)3 
PROCEDURE DCLOFINTSHCR)? 
SAVE PROCEDURE INITIATEIOCITODESCaMyX,UII% 
SAVE PROCEDURE WA]TORSWAP(U,A)? VALUE UsAs REAL UsA3 
SAVE PROCEDURE QUEUEUP(U)3 VALUE U i REAL USE 
SAVE PROCFDURE LINKEU3 
SAVE PROCEDURE STARTIOCU)3 VALUE Us REAL USS 
SAVE PROCEDURE PRINTERFINISHCU)S VALUE UF REAL Us 
SAVE PROCEDURE [OREQUESTCFINALS IODESCeLOCATION) 3% 
SAVE PROCEDURE FINISHOFFIOCU)$ VALUE Us REAL USS 
PROCEDURE PROGRAMRELEASE!S% 
SAVE PROCEDURE NEWIO3% 
PROCEDURE DISKORAUXERROR(R)? VALUE kK} KEAL R& FORWARDS 
PROCEDURE ACTUALJOERR(R)3 VALUE R# KEAL KS FORWARDS 
PROCEDURE LINKUPCTYPEsKEY)3 VALUE TYPE®KEYS REAL TYPEsKEY# FORWARDS 
PROCEDURE CHECKJOBORFILEMESSC(MIXeF I BeUI33 
PROCEDURE LOGOUTMAINT(B)3 VALUE BS KEAL Bs FORWARDSS 
PROCEDURE MAINTLOGGER(B)! VALUE BS REAL B# FORWARDS 
SAVE PROCEDURE IOFINISHCReC)# VALUE KeC3 REAL RoC} 
SAVE REAL PROCEDURE WAYTLOCLODsMASKsU) 328 
REAL PROCEDURE TAPEPARITYRETRYCReUeKEYI33 
PROCEDURE DISKORAUXERROR(R)# VALUE RS REAL R3 
END PROCEDURE DJ SKORAUXERROR} 
PROCEDURE ACTUALIOERRCR)$ VALUE R$ REAL R3 
REAL PROCEDURE TAPEPARITYRETRYCRaURKEY 3% 
REAL PROCENURE PLACEFINDERCS»AsL)3 
REAL PROCEDURE SECURITYCHECK(MIDeF IDs USE HEAD} 
PROCEDURE SHEETOIDOLER(CBUFF,TYPEsSID)3 VALUE BUFF re TYPE SID3 
PROCEDURE ZIPPER(XsY)3 VALUE XeY3 REAL Xe¥3 FORWARDS 
PROCEDURE DISKLOGCMIDeFIDeH)s VALUE MIDsFIDeHs ARRAY HUE*]3 
PROCEDURE 1NDJANBOY: 
PROCEDURE INDIANGIRL3 
PROCEDURE COMM4153 % INDEPENDENT STARTER FOR CANDE 
PROCEDURE SYSDISKIOCTOsLINEs A)! 
PROCEDURE LOGWARNCRC)$ VALUE RC3 REAL RC3 
PROCEDURE FORMTIMECW,T)$ VALUE WeTs REAL WoT3 
PROCEDURE MAKFLOGCMESS»TYPE)3 
PROCEDURE STARTCANDYCFSED»PRIORITY)3 
PROCEDURE STOPCANDYS 
PROCEDURE SPREADTHEWORD3 
PROCEDURE COMM173 
BOOLEAN PROCEDURE BLASTREADCLINE»C)3 
PROCEDURE SCRATCHSORTC(AsN) 3 
PROCEDURE SCRATCHDIRECTORYERROR(As®N) 3 
BOOLEAN PROCEDURE SCRATCHCHECK(C I »HeS) 3 
PROCEDURE SCRATCHSPECTALCASECCNsAsNeCORADDRe SEGADDKe LoH» SCRATCHSEG)} 
PROCEDURE SCRATCHDIRECTORYENTERCASND$ 
PROCEDURE SCRATCHDIRECTORYDELETECA,N)3 
PROCEDURE SCRATCHCLEANCARYsBCeLINK) 3 


ZUPDATES ADINFO & SENDS H/L MESSAGE TO 


03267000 
032/6800 
03292000 
03375000 
03417000 
03440000 
03458000 
03504000 
03550000 
03573000 
03608000 
03689000 
03710000 
04000000 
04014200 
04016000 
04019500 
94020000 
04035000 
94040000 
04067000 
04099000 
041159000 
04121410 
04121425 
04121450 
04121500 
04121600 
04121650 
04122000 
04240000 
94254000 
04256000 
04353000 
04353200 
04548000 
04700000 
04790000 
04798000 
04800000 


%11204800400 


05020000 
05220000 
05407000 
05423000 
05461000 
05607000 
05620000 
05655000 
05700000 
05720000 
05750000 
05758000 
05806500 
05809600 
05611170 
05611340 
058613700 
05827300 
0583/7800 


REAL PROCEDURE PETUSERDYSK(N,T)3 VALUE NoTS REAL NeoT 3 
PROCEDURE FORGETUSERDISKCAsN)$ VALUE ApNS REAL AoN 3 
PROCEDURE KRUNCHERCH)3 ARRAY HE*]! FORWARDS 
PROCEDURE SCHEDLOOKCKTR,TYPE)% VALUE KIRe TYPES REAL KTRe TYPES 
PROCEDURE SCHEDIDLECADR)3 VALUE ADRS REAL ADR 
PROCEDURE SCHEDIOCNUM,TYPFeADR)S Z%IF FORQUED THEN ONLY 1 PARAM, 
PROCEDURE DKBUSINESS(BUFF)$ VALUE BUFFA REAL BUFFS 
SAVE PROCEDURE DISKIOCLOCIOD»eCOREsSIZEsDISKI32 
PROCEDURE FORGETESPDISK(S)} VALUE S$? REAL S! FORWARD? 
REAL PROCEDURE GETESPDISK33 
PROCEDURE FORGETESPDISKCSEGMENT)3 VALUE SEGMENTS REAL SEGMENTS 
PROCEDURE DI SKBUGIZ 
PROCEDURE CLEANOUTC(SYS)3 
ENDS & OF PROCEDURE CLEANOUT 
SAVE PROCEDURE DISKWAITCCORE > SYZE,DISK)3 
PROCEDURE DySKSQUASH(BUFF)3 
SAVE PROCEDURE INITIALIZES FORWARD} 
SAVE REAL PROCEDURE COREND$ FORWARD 
PROCEDURE USERDISKSPECIALCASE(QeReUTe J) 3 
PROCEDURE GETMOREQLAYDISK(MIX)33% 
REAL PROCEDURE SECURITYCHECKCMIDsF IDs USERID ® HEADER) 3 
BOOLEAN PROCEDURE OUTWAIT(B)% BOOLEAN B& 
REAL PROCEDURE OUTRAN9BO CADReNUM,TYPEsbLCC2B)3 
REAL PROCEDURE OUTRANBIJDSCADR»NUMsTYPE® Bol D3 
REAL PROCEDURE OUTRANICCADReNUMs TYPE Bs C3 
REAL PROCEDURE NEXTCDNUMCUPDATE)$ VALUE UPDATE BOOLEAN UPDATES 
PROCEDURE STARTADECKEN)3 VALUE Né REAL N? FORWARDS 
PROCEDURE ENTERCONTROLDECKCH)# VALUE HA ARRAY HE*]5 FORWARDS 
PROCEDURE COM233% 
PROCEDURE STARTLOADN(KTR)$ VALUE KTRS REAL KTR3S 
PROCEDURE TABLEOFCONTENTS(BsCOUNT)3& 
PROCEDURE REMOVEDECK(N,U}S VALUE NeU? REAL NoU3 
PROCEDURE DECKREMOVER(B)3 VALUE B3 REAL BI 
BOOLEAN PROCEDURE READEMFROMDISK(He1B23% 


BOOLEAN PROCEDURE PRINTORPUNCHWA[TC(Q,PNCH)I VALUE @ePNCHFREAL Qs PNCHS 


PROCEDURE ENDOFDECKCR)3 VALUE R3 REAL RI 
PROCEDURE STARTADECK(N)$ VALUE N& REAL N3 
PROCEDURE RUNTHEDECK(B)3 VALUE BS REAL BAR 
PROCEDURE EXTERNALENDCB)! VALUE BS REAL BI 


PROCEDURE CHANGEPRIORITY(BUFFeMIXI2 VALUE BUFF esMIXS REAL BUFF eMIX3 


PROCEDURE ENTERCONTROLDECKCH)? VALUE H# ARRAY H[*]5 
BOOLEAN PROCEDURE MTXINC(IsUsBUFF DSS 
PROCEDURE TAPEPURGE(BUFF)$ VALUE BUFFS REAL BUFFSS 
PROCEDURE MIXPRINTC(BUFF)S VALUE BUFFS REAL BUFF SS 
PROCEDURE REWINDANDLOCKCWHAT)# VALUE WHAT? REAL WHAT3& 
PROCEDURE GIMEDATECB,0T)# VALUE BeDTs REAL BeDTS FORWARDS 
_BROCEDURE PRINTDJRECTORY (BUFF )S 
PROCEDURE PBIOCAeP)3 VALUF AS REAL AeP$ FORWARDS 
PROCEDURE CONTINUITYBITSS 


BOOLEAN PROCEDURE PRINTORPUNCHWAITCQsPNCH) VALUE Q+PNCHIREAL Q»PNCHS 
% THIS PROCEDURE IS RESPONSIBLE FOR STARTING PRNPBT/DISK, IT CHECKS 


PROCEDURE FPRINTBACKUPCBUFF)S VALUE BUFFS REAL BUFF: 


z THIS PROCEOURE HANDLES THE PB MESSAGE» MAKING THE NECESSARY CHECKS 


PROCEDURE TIMEOUT (B)3 VALUE Bs REAL BiB 
PROCEDURE GIMEDATE(Be0T)$ VALUE BeDIS REAL BoDT3 


PROCEDURE NTSKLOGCMID>oFIDeHIs VALUF MI DeFIDeHEREAL MIDeF IDF ARRAY HE*]3 


PROCEDURE SETDATE(BUFF)3 VALUE BUFFS REAL BUFFS2 

PROCEDURE CHANGEDATE(BUFF)$ VALUE BUFFS REAL BUFFER 

PROCEDURE SETIMECBUFF)$ VALUE BUFFS REAL BURFI 

REAL PROCEDURE FORMESS(BUFFsH1)3 VALUE BUFF ®H1s REAL BUFF eHLS 


05839400 
05647000 


%R5005849900 


05850000 
05858700 
05893000 


%¥0286"05950000. 


06000000 
06020500 
06021000 
06036000 
06046000 
06057340 
06059820 
06061500 
06066000 
06179400 
061/9600 
06350000 
06400000 
06460000 
06467000 


%10906500000 


06590000 
066040000 
07004600 
07002000 
07002400 
07004000 
07243000 
07268000 
07298000 
07354000 
07376000 


07405100 


07406000 
07422000 
07457000 
07473100 
07485000 
07541000 
08000000 
08024000 
08058000 
08079000 


ZRH 08094500 
%DS%08095000 
ZP 08170100 


08171000 
08255000 
086255055 
08282000 
08282110 
08305000 
08317000 
08341190 
08343000 
08376000 
08390000 
08418000 


PROCEDURE SUSTATUS(AsDDD»B)} VALUE As DDDeBs REAL AeBs ARRAY DDOC*]# 08438900 


PROCEDURE OUTPUTLABEL(8)3 VALUE Bs REAL BS% 
PROCEDURE TIMEUSED(B»X)# VALUE BeX3 REAL BoXi% 
REAL PROCEDURE ANVILCIL»sZ)! VALUE [UeZS REAL IL eZ3% 
PROCEDURE SAVETHEUNIT(B)3 VALUE Bs REAL B38 
BOOLEAN PROCEDURE WHYSLFEEPCMASK)$ VALUE MASKs REAL MASK} 
END PROCEDURE WHYSLEEPS 
PROCEDURE CHANGEOPTIONC RUFF eRS)5% 
PROCEDURE TYPOPCKTR,PO)3 VALUE KTR»POS REAL KTR»PO3 
PROCEDURE PBIOCALPHAsPOINTER)S VALUE ALPHA} REAL ALPHAsPOINTERS 


_% _TH]S PROCEDURE HANDLES 10 FOR THE CREATION OF BACK®@UP FILES, FOR 


“PROCEDURE TIMERELAXERCKTRsTYPEsMIX)3& 


08439000 
08525000 
08546000 
08575000 
08599000 
08623000 
08624000 
08679000 

ZP 08700000 
08700940 
08730000 


PROCEDURE CHANGEFACTORCBUFF»TF)S VALUE BUFF eTFS REAL BUFFS BOOLEAN TFS 08800000 


PROCEDURE SHEETDIDDLERCBUFF,TYPEsS]D)3 VALUE BUFF s TYPE, OID} 
PROCEDURE LOGOUTS 

PROCEDURE LOGDISK3 

PROCEDURE LINEMESSAGES(BUFH) 3 VALVE BUFHS REAL BUFH3 


PROCEDURE CALLCANDECBUFHsTYPE)$ VALUE BUFH»TYPEs REAL BUFHS TYPE: 


REAL PROCEDURE NEXTAUXMEMWORD(HEADERsF ILEPARAM*DISKADDRESS)3 
IF DISKADDRESS = O THEN & FIRST CALL ON PROCEDURE 
EXITt END PROCEDURE NEXTAUXMEMWORD? 


PROCEDURE TRANSFERMCPTOAUXMEMCHDRADRSe@MAXLOC)# VALUE HDRADRSsMAXLOCS 


END PROCEDURE TRANSFERMCPTOAUXMEM: 
PROCEDURE SETMONITORFILECSTOP)$ VALUE STOPS REAL STOP3 
END PROCEDURE SETMONITORFILES 
PROCEDURE GETMONITOROW 
END PROCEDURE GETMON;TOROWS 
PROCEDURE ENTERSYSMTRC(N)S VALUE NS REAL Ni 


a MCT TELEND. PROCEDURE ENTERSYSMTR3 


PROCEDURE CHANGEAUXFILESCBUFFeWA)S 

PROCEDURE WHATINTRNSICCB) VALUF BS REAL BS FORWARD; 

PROCEDURE INTRINSICTABLEBUTLDERC FHI VALUE FHS REAL FH3 

BOOLEAN PROCEDURE SYSTEMFILECAsB)3 VALUE AsBs REAL AsoBS FORWARDS 

PROCEDURE CHANGEINTRINSICFILEC(BUFF)3 VALUE BUFFS REAL BUFFS 
PROCEDURE CHANGEMCPCBUFF2$ VALUE BUFF3 REAL BUFFS 

BOOLEAN PROCEDURE SYSTEMFILECA,B)3 VALUE AyoBS REAL AvBSE 

PROCEDURE WHATSGOINGON(CBUFH)% VALUE BUFHS REAL BUFHE 

PROCEDURE FENCEMOVER(B, BUFF )3 

PROCEDURE LINECLEARCKTR)3 

REAL STREAM PROCEDURE GNC(B)33 

BOOLEAN STREAM PROCEDURE TANCE) $ VALUE C 3% 

REAL PROCEDURE EXP3 

STREAM PROCEDURE FRMIL(@QeTsMeWBI3 VALUE GsToMis 

PROCEDURE DT3 
REAL PROCEDURE PRNPBTSPECASF1(Z)3 


08850000 
09000000 
09050000 
09400000 
09300000 
094001400 
09401300 
09404300 
09404400 
09410000 
09410200 
09423800 
09423900 
09428800 
09428900 
09433500 
09433600 
09491000 
09500000 
09550000 
09600000 
09679100 
09700000 

%DS%09800000 
09900000 
09955000 
10001000 
10007000 
10012000 
10047000 
10082000 
12500000 


% THIS PROCEDURE HANDLES THE FOLLOWING FUNCTIONS FOR COM19, DEPENDING 12900110 


PROCEDURE PRNPBTSPECASE2¢(Z)3 


12800000 


% THIS PROCEDURE HANDLFS ADDITIONAL THINGS FOR COM19, VALUES OF Z ARF#12600110 


PROCEDURE COM193 
PROCEDURE SPOSET(TYPE>BUFH)3 
REAL PROCEDURE ANALYS[S3% 

SAVE INTEGER PROCEDURE ACTUALOVERLAYADDRESS(TYPEs MIX» LOC)3 

PROCEDURE AUX]LTARYMEMORYCASUALTYRECOVERY3 

PROCEDURE AUXILIARYTABLEINITIALIZE3 
PROCEDURE MAKEPRESENT(C)3 VALUE C3 REAL Ces 

PROCEDURE COMS3% 

PROCEDURE ZIPPERCWieN2)3 VALUE WieW2s REAL W1eW23% 
REAL PROCEDURE EUFCA»BeL)$ VALUE AeBeols REAL AoBoL3 
PROCEDURE COM11$ COMMENT ALGOL 1/70 COMMUNICATES& 

PROCEDURE NISPLAYCX)3 VALUE X# REAL X3% 


13000000 
13200000 
14000000 
14105000 
14120000 
14122000 
14155000 
14343000 
14531000 
14543000 
14623000 
15019000 


PROCEDURE ¢cOM13 34 


PROCEDURE WHATSITCBUFH)3 VALUE BUFHS REAL BUFHE 


BOOLEAN PROCEDURE CONQUER(CoNoLeSeG)3 
REAL PROCENURE BATCHSELECT(FsNeBeL)3 VALUE FoN$ 


PROCEDURE COREPRINT(Q)3 
BOOLEAN PROCEDURE PRIGAMESCBUFFeMIX)3 VALUE BUFF eMIXS REAL BUFF e MIX} 


PROCEDURE SPOUTMCPCBUFF)$ VALUE BUFFS REAL BUFFS 
WHATINTRNSICCBUFFJ3 VALUE BUFFS REAL BUFFS 


PROCEDURE. 
REAL PROCEDURE AUXPRINT(Q)# VALUE @3 REAL Q} 


END PROCEDURE AUXPRINTS 


REAL PROCEDURE KEYINSCANCKTReMIX)5 REAL KTReMyX3 


END PROCFOURE KEYINSCANS 

PROCEDURE KEYINOCB,KTRX)3 VALUE BeKTRX3 REAL Bye KTRX? 
END PROCEDURE KEYINOS 

PROCEDURE KEYINICB»KTRX)3 VALUE BeKTRX# REAL Be KkTRX3 
END PROCEDURE KEYINY3 


PROCEDURE KEYIN2CKTRX)3 VALUE KTRX$ REAL KTRX3 


Z AUXTLYARY PROCEDURE TO "KEYIN", 
¥ THIS PROCEDURE IS CALLED AS AN INDEPENDENT RUNNER FROM 


_& PROCEDURE "KEYIN'3 


END PROCEDURE KEYIN23 
he PROCEDURE KEYINCB)# VALUE Bs REAL BS 
® THIS PROCEDURE FUNCTIONS AS A ORTVER FOR AUXILIARY PROCEDURES 
% THIS PROCEDURE FUNCTIONS AS A DRIVER FOR AUXILIARY PROCEDURES 
ZMKEYINOM,MKEYING® AND "KEYIN2", PROCEDURES "KEYINO™ AND *"KEYING*® 
Z ARE CALLED DIRECTLY» AND PROCEDURE "KEYIN2" IS FORKED AS AN 
END PROCEDURE KEYINS 
PROCEDURE LBMESSCFNeSNeliel2eEe UNI TNOeX)) 
PROCEDURE STOPM} 
PROCEDURE FILEHOLDCAsB»TOGeLOCeHOLD): 
REAL PROCEDURE DIRECTORYSEARCHCA*Be OPIN) 5% 
PROCEDURE COMMUNICATEIS 
PROCEDURE COMMUNICATEOS 
PROCEDURE SHORTCOMMUNICATESS 


PROCEDURE FRONTENDCMIX)3 
PROCEDURE SELECTRUNI3 


ES¥¥X THOSE DECLARED IN PROCEDURE SELECTRUN, 

THIS PROCEDURE WILL BF EXECUTED, THIS PROCEDURE CAN ALSO 

THIS PROCEDURE WILL BE EXECUTED, THIS PROCEDURE CAN ALSO 

RETURNING TO THAT PROCEDURE, 

% PROCEDURE ONLY 

END PROCEDURE SELECTRUNYS 
PROCEDURE SELECTRUN23 

%%%% THOSE DECLARED IN PROCEDURE SELECTRUN, 

END PROCEDURE SELECTRUN2:; 
PROCEDURE SELECTRUNCF)3 VALUE FS REAL F3 

($3%3% VARIABLES DECLARED IN THIS PROCEDURE, 

PROCEDURES "SELECTRUNI® AND/OR *"SELECTRUNO® WILL BE EXECUTED, 

PROCEDURE "SELECTRUNI™ AND "SELECTRUN2" MAY, IN TURN» SPECIFY 
Z%% SEE ALSO "SEGMENT ZERO” SECTION IN PROCEDURE *"SELECTRUN2* FOR 
PROCEDURE PRINTTHECOVER(CCARD»s UNI TNOsPS)3 

PROCEDURE FETCHCUNTTNOsCARDLOCs SOURCE) 

REAL PROCEDURE SCNCUNTTNO,CARDLOC s+ SOURCE sACCUMsKOUNTeLASTSCANGe 
PROCEDURE SEEKNAM(CArBaCeoDeoEoN)3 VALUE AeBs KEAL ArBoCoDrEboN3 
REAL PROCEDURE PPC 

PROCEDURE SECURITYMAINT¢ TYPEsSMIDsSFID»CMMeSFHeCARD)3 

**** ALSO SEE PROCEDURE "SELECTRUNI®™ (SEQ,N0,20055600) FOR 

REAL PROCEDURE LIBCC; 

END} & LIBCC PROCEDURE 

REAL PROCENURE CCSET? FORWARD? 


15060000 


$0$%815106500 


15168000 
15200000 
15300000 
15400000 
15500000 
15534000 
15605000 
15609600 
16029000 
16037900 
16038000 
16360000 
16361000 
16609000 
16610000 
16611000 
16612000 
16613000 
16950000 
16951000 
16951100 
16951100 
16951200 
16951300 
16971000 
17000000 
17900000 
18000000 
16155000 
18500000 
18700000 
19500000 


#R7519991008 


20011200 
20016400 
20018200 
20038200 
20018500 
20023000 
20080200 
20080500 
20085600 
20140300 
20140800 
20146000 
20147200 
20147300 
20176200 
20289010 
20292000 
20314000 
20382010 
20383000 
20511100 
20542600 
20566000 
20580350 
20580400 


a. 


PROCEDURE CCFINISH3 


REAL PROCEDURE CCCOMPILES 


REAL PROCENURE INITIALIZEITS 
REAL PROCEDURE CCUNITS 


REAL PROCEDURE CCSECMAINT! 


Reab PROCENURE cCLABELS 


PROCEDURE CONTROLCARDCCARD)$ VALUE CARD 
REAL PROCEDURE ccCSET} 
SAVE PROCENURE SWAPCSTATE»B) VALUE STATE,BsS REAL STATESB} 
PROCEDURE REENTERCSTUFF)$ VALUE STUFFS REAL STUFFS 
PROCEDURE BRINGBACKC(MIX)3 VALUE MyX# REAL MIX3 


SAVE PROCEDURE MCPIN(S)3 VALUE S5 REAL 93 


PROCEDURE EXPANDERCMIXeR)3 


BOOLEAN PROCEDURE UNHOOKANDWAITCMIX*#MCP)3 VALUE MIXeMCPE REAL MIXeMCP3 
PROCEDURE HOOKUPMCPC(MIX)3 VALUE Myxs REAL MYX} 

PROCEDURE SWAPINGIOCMIXeR)3 VALUE MIXeR3 REAL MIXeR 

ww. STREAM PROCEDURE MOVECNeHeT)# VALUE NoHo TS 


PROCEDURE SWAPPER} 


PROCEDURE INITIALSWAP(N)’ VALUE N5 REAL NB 


PROCEDURE FRONTENDCMIX)3 
PROCEDURE EXPANDERCMIXeR)3 


PROCEDURE FINDFREEADDRESSCNII VALUE NEREAL NSFORWARDS 


PROCEDURE NSECONDSS 
PROCEDURE STATUS3& 
BOOLEAN PROCEDURE OLAYCLOCsMIXX)3 
SAVE PROCEDURE FORGETSPACE(LOC) 3% 


SAVE REAL PROCEDURE ACTSPACEC(SIZEs SAVER eMIX)3 


SAVE INTEGER PROCEDURE DISKSPACECWORDS»MIXsAUX)3 
SAVE REAL PROCEDURE GETSPACE(SIZEsTYPEsSAVEF )} 


PROCEDURE FINDFREEADDRESS¢(N)$ VALUE N3 REAL N3 


IF CFINDOFREECTRisF I NDFREECTR+1) GE@® 32 THENZ THIS PROCEDURE IS 
& CALLED FREQUENTLY SO MAKE 17 A SAVE PROCEDURE 


SAVE PROCEDURE DISPOSAL(LeleR)3 
PROCEDURE RUNSEPTICCBUFF)3 


—... BOOLEAN PROCEDURE B6500FORMATTERCCTs 1 »XoXX»BCL eH» OPTION) 3 
PROCEDURE LIBRARYLOADSPECTALCASE(Z)3 VALUE Zs REAL Z3 
PROCEDURE DOES INITIAL SET*UP AND OTHER SPECIAL FUNCTIONS 


PROCEDURE LIBRARYLOADS 

ENDs & OF LIBRARY LOAD PROCEDURE 
PROCEDURE LYBRARYDUMP3 

END} & LYBRARY MAINT, PROCEDURE 
PROCEDURE LIBRARYZEKOS 

PROCEDURE FILLORKILLCA, STARTs SIZE» 


TYPE)3 


NTEGER PROCEDURE AUXILIARYSPACECSIZE)3 


~PROGEDURE FORGETAUXILIARYSPACECSIZEe 
PROCEDURE AUXILJARYTABLEINITIALIZE3 


LOC 5 


PROCEDURE AUXILIARYMEMORYCASUALTYRECOVERYS 


‘PROCEDURE FRRORMESSERCTYPE)3 VALUE TYPES REAL TYPE 
PROCEDURE EFRRORFIXERCTYPE)3 VALUE TYPE: 


PROCEDURE SKIPFILECU,SD)$ VALUE UrD3 


REAL PROCEDURE FINDOLTPUTCMIDeF IDs TYPE eFORMSsREEL®CDATE® CYCLE sKIND)33 
REAL PROCEDURE FINDINPUTCMIDeF IDs REEL »CDATE Ss CYCLE sCOBOLe UL» OF sMODE sFN)S 
BROCEDURE STARTIMINGC(FNsU)$ VALUE FNeUS REAL FNSUFE 
REAL PROCEDURE DISKADDRESS(MIDeFIDeFPB3eAsHe 10)3 
BROCEDURE SETNOTINUSECUSRWLD* VALUE UskwWL3 


PROCEDURE BLASTQ(U)3 


PROCEDURE BULLDLABELC(CLABLE sMIDeF ID» REELoCDATE s CYCLE sPFACTsPINe BLKODE ob 


REAL U,D3 


PROCEDURE FILEMESSAGEC] »KeMeF eRe DeCsTYPE D3 
PROCEDURE FILLBUFFERSCCURRENTs FINAL» COBOLeNK)3 


REAL PROCEDURE FILEHEADER(MIDs FID» 


NROWS»s SIZE» 


ReAk CARD3 


INTEGER TYPES 


REAL VUeRWL3 


20580800 
205836800 
20586700 
20589700 
20590650 
20594850 
20597558 
20700000 
21000100 
21905000 
21912100 
21943000 
21026500 
21027000 
21100000 
21112000 
21116100 
21200000 
21265000 
21293000 
21313000 
22000500 
22001000 
22055000 
22228000 
24000000 
24032000 
24101000 
24300000 
24600000 
24610000 
24611000 
26000000 
26060000 
27990100 
27997600 
27997615 
28000000 
28399000 
28400000 
28730000 
28800000 
29000000 
29100000 
29300000 
29400000 
29500000 
30903000 
31000000 
311400000 
37000000 
37177000 
37271000 


% (SHM) 37286000 


37302000 
37320000 
37337000 
37357000 
37385000 
37418000 
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PROCEDURE PURGEITCU)$ VALUE Us INTEGER USS 37449000 

PROCEDURE KRUNCHERCH)? ARRAY HE*]3 2R1737500000 eer et ee eae OT eee eee ee eR 
PROCEDURE NISKFILEOPENCALPHA)S VALUE ALPHAS INTEGER ALPHASS %R9038000000 iD 
PROCEDURE OTHERFILEOPENINCALPHA)S VALUE ALPHA INTEGER ALPHAS 38102000 2 
PROCEDURE OTHERFITLEOPENOUTCALPHA)# VALUE ALPHAS INTEGER ALPHAS 368200000 z . ee ee 
PROCEDURE DISKCLOSECALPHA)S VALUE ALPHAS INTEGER ALPHA? %R9038355000 | 
PROCEDURE BACKCLOSECALPHA)# VALUE ALPHAS INTEGER ALPHAS% %RI038540000 1544 
PROCEDURE OTHERCLOSECALFHA)$ VALUE ALPHA! INTEGER ALPHASS %R9038648000 ee ; : _|e 
PROCEDURE FILEOPENCXTRA,ALPHA)S %R9039000000 7" 
PROCEDURE CREATELOGC(DOD)% VALUE DDDS ARRAY DDDL*)3 39500000 8|( 

PROCEDURE SUSTATUSCArDDD+B)$ VALUE AsDDD+BS REAL AoB? ARRAY DODC*]3 39900000 ean - 1 
PROCEDURE DIRECTORYBUIJLDERCAsDDD)3 40000000 rel 
PROCEDURE REALFILECLOSECALPHA)3 VALUE ALPHAS INTEGER ALPHASS %R9041000000 A 
PROCEDURE LINKUPCTYPEsKEY)S VALUE TYPEsKEY REAL TYPE®KEYS 41310100 Oainde tccevaeneseaatna tn east Rritee aks meiereeee 
PROCEDURE CHECK JOBORFILEMESS(MIXeFIBeU)5 41312000 ps 
PROCEDURE LOGOUTMAINT(B)3 VALUE BS REAL B3 44316000 vif 
PROCEDURE MAINTLOGGER(B)$ VALUE B# REAL BS 41327000 ee a Let devee batten! ena 
PROCEDURE MESSAGETABLEBUILDER3 41430000 ce 
(2436 ] = = KEYIN PROCEDURE TO BE CALLED = 41450900 nif 

ate Q = PROCEDURE KEYINO (€ DIRECT CALL ) 41451000 ee nee ae ae ee Peis oe ae 

1 = PROCFDURE KFEYINS € DIRECT CALL ) 41451100 he 
2 = PROCEDURE KEYIN2 € INDEPENDENT RUNNER ) 41451200 iol 

£36312) = LABEL NUMBER € SWITCH LOCATION IN PROCEDURE ) 41451900 Berga ait aos ee es ane 
"Las77aans Beek END OF FIRST KEYIN PROCEDURE CALLS 41459900 [22 
WL ee7 Tan, Be*d END OF SECOND KEYIN PROCEDURES 41469900 pad 

_ PROCEDURE ENTERSYSFILECN)S VALUE N3 REAL N3 41600000 Cth etseeen Suseatn ee 
PROCEDURE ARTNCA®N)$ VALUE AsN3 ARRAY AC¥)$ INTEGER NBS 42474000 [2s 
PROCEDURE ASRS BEGIN INTEGER T*BCNTRS ARRAY AIT(L*#]$ REAL TEMPS% 42482000 lao! 
SAVE REAL PROCEDURE CORENDS FORWARDS 42509000 GPA 2a ee A es ehh anes ss cnet 
PROCEDURE INTERRUPT(TYPE)$ VALUE TYPE# REAL TYPES 42510000. be 
PROCEDURE FILLSYSTAT? 42600000 psi 
__________ PROCEDURE SAVESTATISTICS} 42700000 eet eet Grae ee tenttsa ple 
PROCEDURE INTFINISHS FORWARD? 44008998 iy 
SAVE PROCEDURE INITIALIZFS% 44009000 ial 
Series et nae ae 2 ey wat Nig B FIXEX PROCEDURES 44152500 ogo Ect Gem es ee nt Schteae peae | 
SAVE REAL PROCEDURE CORENDS% 44441000 ss 
PROCEDURE INTFINISH 45000000 od 
PROCEDURE AND EXPECT IT TO RETURN WITH THE SAME VALUES 45997000 OB ie 
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